COMMENT ā VALID 00002 PAGES C REC PAGE DESCRIPTION C00001 00001 C00002 00002 REQUIRE "CARNES.REL[AER,HPM]" LOAD_MODULE C00003 ENDMK Cā; REQUIRE "CARNES.REL[AER,HPM]" LOAD_MODULE; EXTERNAL REAL PROCEDURE VCAR(REFERENCE INTEGER PIC; INTEGER X1,Y1,X2,Y2; REFERENCE REAL RES); EXTERNAL INTEGER CARH12,CARW12;